home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / comm / irc / cybershiela.lha / cs / csc_scan.amirx < prev    next >
Text File  |  1999-10-08  |  961b  |  52 lines
  1. /* shiela ping responder */
  2. Options Results  
  3. signal on syntax 
  4. ponger=getclip('SCANNER')
  5. nick=getclip('SCAN')
  6. if ponger=1 then do;'say Scan is in Use atm...Please try again in a moment after i report this Scan.';exit;end
  7. call setclip('SCANNER','1')
  8. getusers
  9. allusers=result
  10. x=pos(nick,upper(allusers))
  11. if x<1 then signal nouser
  12.  
  13.  
  14. userhost nick
  15. host=result
  16. temp=host
  17. x=pos('@',temp)
  18. z=length(temp)
  19. m=z-x
  20. mm=right(temp,m)
  21. whost=mm
  22.  
  23. 'say «Scanning 'nick' 'whost' for open ports»'
  24.  
  25.  
  26. address command('ascan 'whost' >RAM:ascan2.txt')
  27. do i=1 to 90000;end
  28. 'echo opening file'
  29. call open(fle,'ram:ascan2.txt','R')
  30.  
  31. do until eof(fle)
  32. mp=readln(fle)
  33. if mp="RESULT" then signal NORES
  34. if mp~="" then 'say «Scan» 'nick' Port 'mp' [Open]'
  35. end
  36. call close(fle)
  37. 'say «Scan of 'nick' Completed»'
  38. call setclip('SCANNER','0')
  39. exit
  40.  
  41.  
  42. NORES:
  43. 'say «Scan» Port Scan on 'nick' failed.'
  44. call setclip('SCANNER','0')
  45. exit
  46.  
  47. nouser:
  48. 'say no such user exist'
  49. call setclip('SCANNER','0')
  50. exit
  51.  
  52.